home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 2.iso / cosmos / luret.dir / 00060.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  521 b   |  24 lines
  1. on exitFrame
  2.   global flg
  3.   if soundBusy(1) then
  4.   else
  5.     puppetSound("RURETT.AIFF")
  6.   end if
  7.   updateStage()
  8.   if flg = 0 then
  9.     set h4 to the locH of sprite 11
  10.     set v4 to the locV of sprite 11
  11.     set the locH of sprite 11 to h4 + 1
  12.     set the locV of sprite 11 to v4 + 1
  13.     set flg to 10
  14.   else
  15.     set h4 to the locH of sprite 11
  16.     set v4 to the locV of sprite 11
  17.     set the locH of sprite 11 to h4 - 1
  18.     set the locV of sprite 11 to v4 - 1
  19.     set flg to 0
  20.   end if
  21.   updateStage()
  22.   go(the frame)
  23. end
  24.